home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 May / 64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64 / f+m speed test (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  817 b   |  41 lines
  1. 100 rem   speed test demo
  2. 105 rem
  3. 110 print"[147]"(NULL)(12,5)"f+m  manager"
  4. 120 print(NULL)(11,6)"[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  5. 130 print(NULL)(13,8)"speed test"
  6. 140 print"bitte legen sie eine leere diskette ein";
  7. 150 (NULL) a$
  8. 160 print"[145]                                        "
  9. 170 (NULL)"s:test-datei,test-datei+"
  10. 180 print(NULL)(6,10)"anzahl der datensaetze : ";
  11. 190 (NULL) 4,a
  12. 200 (NULL)"i"
  13. 210 gosub460
  14. 220 print(NULL)(12,13)"> creating..."
  15. 230 (NULL)"test-datei",5,12,10,14,16,18,a
  16. 240 gosub460
  17. 250 :
  18. 260 print(NULL)(12,13)"> writing... "
  19. 270 print(NULL)(12,20)"datensatz#"
  20. 280 (NULL)"test-datei"
  21. 290 gosub460
  22. 300 fori=1toa
  23. 310 (NULL)i,1,"record#"+str$(i)
  24. 320 print(NULL)(22,20)i
  25. 330 next
  26. 340 print(NULL)(12,13)"   taste [146]!  [157][157][157]";
  27. 350 (NULL) a$
  28. 360 :
  29. 370 print(NULL)(12,13)"> reading... "
  30. 380 print(NULL)(6,20)"feld-inhalt: '            '"
  31. 390 fori=1toa
  32. 400 (NULL)i,1,a$
  33. 410 print(NULL)(20,20)a$
  34. 420 next
  35. 430 (NULL)
  36. 440 gosub460
  37. 450 end
  38. 460 print(NULL)(0,15)"                                       "
  39. 470 print(NULL)(19-len(ds$)/2,15)ds$
  40. 480 return
  41.